home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 January / 1987-01.d64 / keyword const (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  38 lines
  1. 10 print"[147][159]":poke53280,6:poke53281,6:print"keyboard construction set[155]"
  2. 20 n=41117:m=49221:print"enter new language name":input b$
  3. 30 print"printer (y/n)?";
  4. 40 geta$:ifa$=""then40
  5. 50 ifa$="y"thengosub200
  6. 60 x$="":ifn>=41372then90
  7. 70 n=n+1:x=peek(n):ifx<128thenx$=x$+chr$(x):goto70
  8. 80 x$=x$+chr$(x-128):ln=len(x$):gosub210:goto60
  9. 90 ifrt>0 then print"table too long":for i=1 to 1500:next:run
  10. 100 close4:pokem,0:fori=49152to49220:reada:pokei,a:f=f+a:next
  11. 110 iff<>10293thenprint"error in data statements.":stop
  12. 120 print"[155]t[146][159]ape/[155]d[146][159]isk?"
  13. 130 geta$:ifa$=""ora$<>"d"anda$<>"t"then130
  14. 134 if a$="t" then 140
  15. 135 print"gazette disk is write protected":print"insert new disk to save file"
  16. 136 print" press any key to continue"
  17. 137 poke 198,0:wait 198,1:get mt$
  18. 140 dv=1-7*(a$="d"):ifdv=8thenb$="0:"+b$
  19. 150 f$=b$:poke780,len(f$):a=peek(53)+256*peek(54)-len(f$):poke782,a/256
  20. 160 poke781,a-256*peek(782):sys65469:poke780,1:poke781,dv:poke782,peek(780)
  21. 170 sys65466:poke 251,0:poke252,192:poke781,69:poke782,193:poke780,251:sys65496
  22. 180 print:print"load"chr$(34)b$chr$(34)",8,1 -  new  -  sys49152"
  23. 190 end
  24. 200 p=1:open4,4:print#4,"basic         "b$:print#4:return
  25. 210 n1=n-41117:print"[147][155]total bytes="n1" over/under (+/-)="rt
  26. 220 a$=x$:print"[150]"x$tab(10)"[159]";:inputa$:ifa$=x$thenprinta$
  27. 230 la=len(a$):d=la-ln:rt=rt+d
  28. 240 fori=1tola:pokem,asc(mid$(a$,i,1)):m=m+1:next:pokem-1,peek(m-1)+128
  29. 250 ifpthenprint#4,x$;:fori=1to15-len(x$):print#4," ";:next:print#4,a$
  30. 260 return
  31. 270 data 169,0,133,251,169,160,133,252,160,0
  32. 280 data 162,32,177,251,145,251,200,208,249,230
  33. 290 data 252,202,208,244,169,69,141,189,165,141
  34. 300 data 0,166,141,49,167,141,57,167,169,192
  35. 310 data 141,190,165,141,1,166,141,50,167,141
  36. 320 data 58,167,169,68,141,251,165,169,192,141
  37. 330 data 252,165,165,1,41,254,133,1,96
  38.